What PC? 1997 February/WPCFEB97.ISO/dxrs/jukebx02.dxr/00027_Button Functions.ls

Text File | 1996-12-09 | 1.7 KB | 72 lines

on CheckInterfaceButtons
  global gFlagDown, button, FlagClick, leaveTrack, newbut
  if rollOver(27) then
    set the castNum of sprite 27 to the number of member "L Red on"
    updateStage()
  else
    if the castNum of sprite 27 = the number of member "L Red on" then
      set the castNum of sprite 27 to the number of member "L Red off"
      updateStage()
    end if
  end if
  if the mouseDown or (leaveTrack = 1) then
    repeat with r = 27 to 27
      if rollOver(r) or (newbut = r) then
        set newbut to 0
        set leaveTrack to 0
        set the memberNum of sprite r to 7
        set gFlagDown to 1
        set button to r
        ButtonClickDown()
        next repeat
      end if
      set the memberNum of sprite r to 8
    end repeat
  else
    if (gFlagDown = 1) and rollOver(button) then
      ButtonFunction()
      set gFlagDown to 0
      set FlagClick to 0
    end if
  end if
end

on ButtonFunction
  global selection, TrayNumber, ButtonNum, button, JUKESoundOne
  case button of
    27:
      set TrayNumber to 10
      set selection to "TRIGCHAN.AIF"
      set ButtonNum to 8
      DoPlay()
  end case
end

on DoPlay
  global ButtonNum, button, screen, newbut, leaveTrack
  if screen = 3 then
    set leaveTrack to 0
    PlayRecord()
    set TimeCount to 0
    repeat while soundBusy(1) = 0
      set TimeCount to 1 + TimeCount
      if TimeCount = 400 then
        exit repeat
      end if
    end repeat
    repeat while soundBusy(1)
      rotate()
      ShowImages()
      BubbleAnimation()
      hExit()
      if leaveTrack = 1 then
        exit repeat
      end if
    end repeat
    hExit()
    removeRecord()
    set the memberNum of sprite button to ButtonNum
    ButtonClickUp()
  end if
end